www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelCustomPage\D_chk_copy_moban.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <% AJAXshowLoader() %> <% if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <% set filea=new Cls_FSO if trim(request("fnm"))="" then %> <script language=javascript> alert("复制失败,必须填写 复制到哪"); history.go(-1); </script> <% else ssss="/" if trim(request("fpath"))<>"" then if right(trim(request("fpath")),1)="/" then ssss="" else ssss="" end if ssss="" if filea.ReportFileStatus(server.mappath("../../templates/"&request("ggga1")&"/"&ssss&request("fnm")))=1 then %> <script language=javascript> alert("复制失败,因为目标文件 与已有文件重名"); self.location="D_edit_admin_zi_templates.asp?fpath=<%=request("fpath")%>&pid=<%=request("pid")%>"; </script> <% else '以下用来 支持 无限级 创建目录 call createfile("../../templates/"&request("ggga1")&"/"&ssss&request("fnm"),"1111",true) call deletefile("../../templates/"&request("ggga1")&"/"&ssss&request("fnm")) ssss="/" if trim(request("fpath"))<>"" then if right(trim(request("fpath")),1)="/" then ssss="" else ssss="" end if set a=new Cls_FSO if a.CopyAFile(server.mappath("../../templates/"&request("ggga1")&"/"&request("fpath")&ssss&request("yuanf")),server.mappath("../../templates/"&request("ggga1")&"/"&request("fnm")))=1 then ssss="" sssp=request("fnm") sssspq=split(sssp,"/") ooosss="" for iii=0 to ubound(sssspq)-1 ooosss=ooosss&sssspq(iii)&"/" next '=ooosss2 %> <script language=javascript> alert("复制成功"); self.location="D_edit_admin_zi_templates.asp?fpath=<%=ooosss%>&pid=<%=request("pid")%>"; </script> <% else %> <script language=javascript> alert("复制失败"); alert("<%="../../templates/"&request("ggga1")&"/"&request("fpath")&ssss&request("yuanf")%>") //self.location="D_edit_admin_zi_templates.asp?fpath=<%=request("fpath")%>&pid=<%=request("pid")%>"; </script> <% end if end if end if AJAXcloseLoader() %>